home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / program / qbprog.EXE / ISBN.ZIP / ISBN.BAS next >
BASIC Source File  |  1991-09-01  |  861b  |  21 lines
  1. 10 ' **************************************
  2. 20 ' *       Verify ISBN Checksums        *
  3. 30 ' *                                    *
  4. 40 ' *   Useful for data entry routines   *
  5. 50 ' *      involving International       *
  6. 60 ' *       Standard Book Numbers        *
  7. 70 ' *                                    *
  8. 80 ' *  By Frank Cox   FidoNet 1:140/53   *
  9. 90 ' *         September 1, 1991          *
  10. 100 '**************************************
  11. 110 INPUT "Input ISBN Number";A$
  12. 120 FOR X = 1 TO LEN(A$)
  13. 130 IF MID$(A$,X,1) >="0" AND MID$(A$,X,1) <="9" THEN B$=B$+MID$(A$,X,1)
  14. 140 NEXT X
  15. 150 IF RIGHT$(A$,1) = "X" OR RIGHT$(A$,1) = "x" THEN B$=B$ + "X"
  16. 160 FOR X= 1 TO LEN(B$)-1
  17. 170 CS = CS + VAL(MID$(B$,X,1)) * X
  18. 180 NEXT X
  19. 190 IF RIGHT$(B$,1) = "X" THEN M = 10 ELSE M = VAL(RIGHT$(B$,1))
  20. 200 IF CS MOD 11 = M THEN PRINT "OK" ELSE PRINT "Error"
  21.